Trabalho de R - FIAP

Importando as bibliotecas necessárias

library(tidyverse)

Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
-- Attaching packages ------------------------------------------------------- tidyverse 1.3.1 --
v ggplot2 3.3.5     v purrr   0.3.4
v tibble  3.1.5     v dplyr   1.0.7
v tidyr   1.1.4     v stringr 1.4.0
v readr   2.0.2     v forcats 0.5.1
-- Conflicts ---------------------------------------------------------- tidyverse_conflicts() --
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

library(readxl)
library(plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

library(gmodels)
library(sqldf)

Carregando pacotes exigidos: gsubfn
Carregando pacotes exigidos: proto
Carregando pacotes exigidos: RSQLite

Carregando o arquivo Cadastral para fazer as análises

ds <- read_excel("cadastral.xlsx")
ds

1. Tire uma tabela de frequência usando a função table na variável Sexo. Quantos homens e quantas mulheres têm no arquivo?

table(ds$Sexo)

 Feminino Masculino 
      432       514 

2. Ordenar a variável ID.

ds <- ds[order(ds$ID),]
ds

3. Remova os ID duplicados. Coloque esse arquivo dentro de um objeto chamado A.

A <- unique(ds)
A

4. Já no objeto A. Tire uma tabela de frequência usando a função table na variável Sexo. Quantos homens e quantas mulheres têm no arquivo?

table(A$Sexo)

 Feminino Masculino 
      216       257 

5. Crie uma variável data atual e acrescenta essa variável ao objeto/ arquivo A.

A$data_atual <- Sys.Date()
A

6. Verifique se a variável salario é numérica?

is.numeric(A$salario)

[1] TRUE

7. Mostre o mínimo e o máximo da variável salario.

print(sprintf("Mínimo salário -> %0.2f", min(A$salario)))

[1] "Mínimo salário -> 1575.00"

print(sprintf("Máximo salário -> %0.2f", max(A$salario)))

[1] "Máximo salário -> 13500.00"

8. Crie uma variável faixa de salario com as seguintes quebras: 1574, 3000, 5000, 7000, 13500.

A$faixa_salario <- cut(A$salario, c(1574, 3000, 5000, 7000, 13500),label=c("A","B","C","D"))
A

9. Crie um visualizador/ matriz usando a função View(A). Exatamente esse comando.

View(A)

10. Atribua o arquivo Transacional ao objeto B. E crie um visualizador/ matriz usando a função View(B).

B <- read_excel("transacional.xlsx")
View(B)

11. Crie um objeto chamado consolidado e faça uma união dos arquivos A e B através do Left join. Usando a função do R.

consolidado <- merge(A,B, by='ID', all.x=T)
consolidado

12. Crie uma variável comprometimento de renda usando as variáveis ValorEmprestimo e Salario. Para isso utilize a expressão. (ValorEmprestimo / salario). Quantas variáveis ficaram no arquivo?

consolidado$comprometido_de_renda <- (consolidado$ValorEmprestimo / consolidado$salario)
print(sprintf("Número de colunas -> %0.0f", ncol(consolidado)))

[1] "Número de colunas -> 18"

13. Faça um gráfico de pie usando o pacote plotly. Pode usar qualquer variáveis Explique o gráfico.

fig <- plot_ly(consolidado, labels = ~faixa_salario, values = ~salario, type = 'pie')
fig <- fig %>% layout(title = 'Faixa salarial',
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

fig

#Criei um gráfico de pizza com a variável de faixa salarial:
#      39,2% das pessoas pertecem ao grupo A ([1500 - 3000[)
#      30,7% das pessoas pertecem ao grupo B ([3000 - 5000[)
#      17,7% das pessoas pertecem ao grupo C ([5000 - 7000[)
#      12,4% das pessoas pertecem ao grupo D ([7000 - 13500[)
# Temos praticamente 70% das pessoas com renda salarial de até 5000,00 reais formados pela class A e # B

14. Faça um tabela cruzada usando a função Crosstable do packege gmodels das variáveis sexo e default. Olhando para percentual coluna, quem tem o maior % de inadimplência H ou M? e qual é esse valor.

Cross <- CrossTable(consolidado$Sexo, consolidado$default)

 
   Cell Contents
|-------------------------|
|                       N |
| Chi-square contribution |
|           N / Row Total |
|           N / Col Total |
|         N / Table Total |
|-------------------------|

 
Total Observations in Table:  473 

 
                 | consolidado$default 
consolidado$Sexo |   Adimplente | Inadimplente |    Row Total | 
-----------------|--------------|--------------|--------------|
        Feminino |           49 |          167 |          216 | 
                 |        1.810 |        0.686 |              | 
                 |        0.227 |        0.773 |        0.457 | 
                 |        0.377 |        0.487 |              | 
                 |        0.104 |        0.353 |              | 
-----------------|--------------|--------------|--------------|
       Masculino |           81 |          176 |          257 | 
                 |        1.521 |        0.577 |              | 
                 |        0.315 |        0.685 |        0.543 | 
                 |        0.623 |        0.513 |              | 
                 |        0.171 |        0.372 |              | 
-----------------|--------------|--------------|--------------|
    Column Total |          130 |          343 |          473 | 
                 |        0.275 |        0.725 |              | 
-----------------|--------------|--------------|--------------|

 

print("Quem tem o maior precentual de inadiplência são os homens com 51,30%")

[1] "Quem tem o maior precentual de inadiplência são os homens com 51,30%"

15. Utilizando a biblioteca SQLDF pede-se:
    1. Selecione da tabela consolidado os registros do sexo masculino e que possui um conta particular.
    2. Tira a média de QtdaPagas pela variável Atraso .

sexo_masculino_particular <- sqldf("select * from consolidado where sexo = 'Masculino' and conta = 'Particular'")
sexo_masculino_particular

QtdaPagas_vs_Atraso <- sqldf("select Atraso, avg(QtdaPagas) as media_QtdaPagas from consolidado group by Atraso")
QtdaPagas_vs_Atraso

16. Calcule a expressão numérica: (((√16)/2)3^2)/2(9-2^3),

calculo1 = ((sqrt(16)/2)*3^2)/2*(9-2^3)
calculo1

[1] 9

17. Calcule a expressão numérica: -(-2^{3)+(-〖1)〗}0-(√(25−3^2 ))-5^3/25

calculo2 <- -(-2^3) + (-1)^0 - sqrt(25 - ( 3 ^ 2)) - ( (5 ^ 3) / 25 )
calculo2

Salvando o Arquivo